home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Home CD Sampler / Microsoft Home CD Sampler.iso / multi / dinodemo / dinodemo.dxr / 00173.ls < prev    next >
Encoding:
Text File  |  1995-10-09  |  320 b   |  14 lines
  1. on startMovie
  2.   global The_Path
  3.   set The_Path to EMPTY
  4.   repeat with nn = 1 to count(the searchPath)
  5.     set tempPath to getAt(the searchPath, nn)
  6.     if tempPath contains "snds_" then
  7.       set The_Path to tempPath & "\"
  8.     end if
  9.   end repeat
  10.   if The_Path = EMPTY then
  11.     set The_Path to the pathName
  12.   end if
  13. end
  14.